home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / dev / lang / pcq12src.lzh / Runtime / System / Exec / IO.asm < prev    next >
Assembly Source File  |  1990-05-10  |  951b  |  58 lines
  1. *
  2. *    IO.asm of PCQ Pascal
  3. *    Copyright (c) 1990 Patrick Quaid
  4. *
  5. *
  6. *    This file has the glue routines for the procedures and
  7. *    functions defined in Include/Exec/IO.i.  It also has the
  8. *    BeginIO function, which for C is in Amiga.lib (not the
  9. *    Exec library).
  10. *
  11.  
  12.     SECTION    PCQ_Runtime,CODE
  13.  
  14.     XREF    _AbsExecBase
  15.  
  16.     XREF    _LVOAbortIO
  17.     XDEF    _AbortIO
  18. _AbortIO
  19.     move.l    4(sp),a1
  20.     move.l    _AbsExecBase,a6
  21.     jmp    _LVOAbortIO(a6)
  22.  
  23.     XDEF    _BeginIO
  24. _BeginIO
  25.     move.l    4(sp),a1    ; get IO Request
  26.     move.l    $14(a1),a6    ; extract Device ptr
  27.     jmp    -$1E(a6)    ; call BEGINIO directly
  28.  
  29.     XREF    _LVOCheckIO
  30.     XDEF    _CheckIO
  31. _CheckIO
  32.     move.l    4(sp),a1
  33.     move.l    _AbsExecBase,a6
  34.     jmp    _LVOCheckIO(a6)
  35.  
  36.     XREF    _LVODoIO
  37.     XDEF    _DoIO
  38. _DoIO
  39.     move.l    4(sp),a1
  40.     move.l    _AbsExecBase,a6
  41.     jmp    _LVODoIO(a6)
  42.  
  43.     XREF    _LVOSendIO
  44.     XDEF    _SendIO
  45. _SendIO
  46.     move.l    4(sp),a1
  47.     move.l    _AbsExecBase,a6
  48.     jmp    _LVOSendIO(a6)
  49.  
  50.     XREF    _LVOWaitIO
  51.     XDEF    _WaitIO
  52. _WaitIO
  53.     move.l    4(sp),a1
  54.     move.l    _AbsExecBase,a6
  55.     jmp    _LVOWaitIO(a6)
  56.  
  57.     END
  58.